Public Class VisualizarRecepciones
    Dim ADRecepciones As New ADCono.Recepciones

    Public Function ObtenerRecepcionesPendientes() As DataSet
        Dim DS As New DataSet
        DS = ADRecepciones.ObtenerPendientes
        Return DS
    End Function

    Public Function ObtenerEstados() As DataTable
        Dim DT As New DataTable
        DT = ADRecepciones.ObtenerEstados.Tables(0)
        Return DT
    End Function
End Class